home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 August / 1989-08.d64 / sprite clock (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  79 lines
  1. 10 rem copyright 1989 conmpute! publications, inc. - all rights reserved
  2. 15 poke53280,14:poke53281,6
  3. 20 print"[147]   copyright 1989 compute! pub., inc."
  4. 30 printtab(11)"all rights reserved"
  5. 40 gosub110
  6. 50 c=0:input"hour,min,am/pm";h,m,a$
  7. 60 a$=left$(a$,1):ifh<0orh>12orm<0orm>59or(a$<>"a"anda$<>"p")then50
  8. 70 poke960,int(h/10)*16+h-int(h/10)*10:ifa$="p"thenc=128
  9. 80 poke961,(int(m/10)*16+m-int(m/10)*10):ifh=12thenc=128-c
  10. 90 poke960,peek(960)and127:poke960,peek(960)orc
  11. 100 sys962:end
  12. 110 fori=960to1017:reada:x=x+a:pokei,a:next
  13. 120 fori=40960to41262:reada:x=x+a:pokei,a:next
  14. 130 ifx<>37842thenprint"error in data statements.":stop
  15. 140 return
  16. 150 rem driver
  17. 160 data 18,0,32,232,3,32
  18. 170 data 16,160,76,232,3,173
  19. 180 data 193,3,205,10,220,240
  20. 190 data 9,32,232,3,32,146
  21. 200 data 160,32,232,3,76,49
  22. 210 data 234,32,232,3,32,226
  23. 220 data 160,76,232,3,165,1
  24. 230 data 73,1,133,1,96,32
  25. 240 data 232,3,169,0,32,36
  26. 250 data 160,76,232,3
  27. 260 rem clock display
  28. 270 data 1,1,0,0,0,1
  29. 280 data 2,64,65,66,24,25
  30. 290 data 26,88,89,90,173,192
  31. 300 data 3,141,11,220,173,193
  32. 310 data 3,141,10,220,169,0
  33. 320 data 141,9,220,141,8,220
  34. 330 data 168,153,64,3,200,192
  35. 340 data 128,208,248,173,21,208
  36. 350 data 9,192,141,21,208,173
  37. 360 data 16,208,9,128,141,16
  38. 370 data 208,169,248,141,12,208
  39. 380 data 169,40,141,14,208,173
  40. 390 data 134,2,141,45,208,141
  41. 400 data 46,208,169,234,141,13
  42. 410 data 208,141,15,208,169,192
  43. 420 data 141,23,208,141,29,208
  44. 430 data 162,13,142,254,7,232
  45. 440 data 142,255,7,173,20,3
  46. 450 data 201,203,208,10,173,21
  47. 460 data 3,201,3,208,3,76
  48. 470 data 146,160,173,20,3,141
  49. 480 data 221,3,173,21,3,141
  50. 490 data 222,3,120,169,203,141
  51. 500 data 20,3,169,3,141,21
  52. 510 data 3,88,173,11,220,141
  53. 520 data 192,3,173,10,220,141
  54. 530 data 193,3,173,8,220,162
  55. 540 data 1,173,192,3,16,2
  56. 550 data 162,16,142,1,160,162
  57. 560 data 5,142,0,160,32,226
  58. 570 data 160,162,0,142,0,160
  59. 580 data 173,192,3,41,127,32
  60. 590 data 205,160,162,58,142,1
  61. 600 data 160,32,226,160,173,193
  62. 610 data 3,72,74,74,74,74
  63. 620 data 9,48,141,1,160,32
  64. 630 data 226,160,104,41,15,9
  65. 640 data 48,141,1,160,172,0
  66. 650 data 160,185,4,160,141,3
  67. 660 data 160,173,1,160,170,74
  68. 670 data 74,74,74,74,9,208
  69. 680 data 141,13,161,138,10,10
  70. 690 data 10,141,12,161,160,0
  71. 700 data 140,2,160,165,1,41
  72. 710 data 251,133,1,185,0,208
  73. 720 data 172,3,160,153,64,3
  74. 730 data 200,200,200,140,3,160
  75. 740 data 172,2,160,200,140,2
  76. 750 data 160,192,8,208,230,165
  77. 760 data 1,9,4,133,1,238
  78. 770 data 0,160,96
  79.